home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.09 Sep 87 / fortran source / misc stuff / tbxfix2.par next >
Encoding:
Text File  |  1986-03-18  |  1.9 KB  |  63 lines  |  [TEXT/EDIT]
  1. * This file contains parameter definitions which were incorrect in the
  2. * initial release of Microsoft FORTRAN 2.1.  Several OS traps were
  3. * defined with the 'save A0' flag set to zero (this indicates that
  4. * A0 should be restored) for OS functions which return a value in A0.
  5. * These traps are found in the following FORTRAN include files:
  6. *    toolbx.par
  7. *    memory.inc
  8. *    OSutilities.inc
  9. *
  10. * 18 Mar 86    Added fix to HOMERESFILE (in toolbx.par, resource.inc)
  11. * 18 Mar 86    Added fix to EVENTAVAIL (in toolbx.par, event.inc)
  12. *
  13.  
  14. * MaxMem is a special case in that it returns 2 values.  Pascal returns one
  15. * of these in the function's argument; the FORTRAN toolbx.sub function
  16. * has no provision for this.  For those requiring the Grow value, the 
  17. * MAXMEM2 definition below should work.  MAXMEM will return only
  18. * the size of the largest contiguous block, MAXMEM2 will return only
  19. * the Grow size.
  20. * FUNCTION MaxMem (VAR Grow: Size): Size;
  21.     INTEGER MAXMEM
  22.     PARAMETER (MAXMEM=Z'11DA0024')
  23.     INTEGER MAXMEM2
  24.     PARAMETER (MAXMEM2=Z'11DA00A4')
  25.  
  26. * FUNCTION NewHandle (LogicalSize: Size): Handle;
  27.     INTEGER NEWHANDLE
  28.     PARAMETER (NEWHANDLE=Z'122000A8')
  29.  
  30. * FUNCTION HandleZone (H: Handle): THz;
  31.     INTEGER HANDLEZONE
  32.     PARAMETER (HANDLEZONE=Z'126800A8')
  33.  
  34. * FUNCTION RecoverHandle (P: Ptr): Handle;
  35.     INTEGER RECOVERHANDLE
  36.     PARAMETER (RECOVERHANDLE=Z'128800A4')
  37.  
  38. * FUNCTION NewPtr (logicalSize: Size) : Ptr;
  39.     INTEGER NEWPTR
  40.     PARAMETER (NEWPTR=Z'11E000A8')
  41.  
  42. * FUNCTION GetTrapAddress (trapNum: INTEGER) : LongInt;
  43.     INTEGER GETTRAPADDRESS
  44.     PARAMETER (GETTRAPADDRESS=Z'146000A0')
  45.  
  46. * FUNCTION GetZone : THz;
  47.     INTEGER GETZONE
  48.     PARAMETER (GETZONE=Z'11A000A8')
  49.  
  50. * FUNCTION PtrZone (P: Ptr): THz;
  51.     INTEGER PTRZONE
  52.     PARAMETER (PTRZONE=Z'148800A8')
  53.  
  54. * FUNCTION HomeResFile (TheResource: Handle) : Integer;
  55.     INTEGER HOMERESFILE
  56.     PARAMETER (HOMERESFILE=Z'9A450000')
  57.  
  58. * FUNCTION EventAvail (EventMask: Integer; VAR TheEvent: EventRecord):
  59. *               Boolean;
  60.     INTEGER EVENTAVAIL
  61.     PARAMETER (EVENTAVAIL=Z'971CE000')
  62.  
  63.